home *** CD-ROM | disk | FTP | other *** search
- /* Blackscreen.c - Rob Freundlich */
-
- /* This program is hereby released to the world at large. Do whatever you want with it. */
-
- #include <stdio.h>
-
- #include <dos/dos.h>
- #include <exec/types.h>
- #include <intuition/intuition.h>
- #include <intuition/screens.h>
-
- #include <clib/dos_protos.h>
- #include <clib/exec_protos.h>
- #include <clib/intuition_protos.h>
-
- struct Library *IntuitionBase;
-
- int main()
- {
- struct Screen *s;
- struct ColorSpec cspec[] = {
- {0,0,0,0},
- {0,0,0,0},
- {-1,0,0,0},
- };
- struct Window *w;
-
- if (IntuitionBase = OpenLibrary("intuition.library",37)) {
- if (s = OpenScreenTags(NULL,
- SA_Depth,1,
- SA_Colors, cspec,
- TAG_DONE)) {
- if (w = OpenWindowTags(NULL,
- WA_CustomScreen, s,
- WA_Left, 0,
- WA_Top, 0,
- WA_Width, s->Width,
- WA_Height, s->Height,
- WA_Flags, WFLG_BORDERLESS|WFLG_CLOSEGADGET,
- WA_IDCMP, IDCMP_CLOSEWINDOW,
- TAG_DONE)) {
- struct IntuiMessage *msg;
-
- WaitPort(w->UserPort);
- msg = (struct IntuiMessage *)GetMsg(w->UserPort);
- ReplyMsg((struct Message *)msg);
- CloseWindow(w);
- }
- else printf("Couldn't open window.\n");
- CloseScreen(s);
- }
- else printf("Couldn't open screen.\n");
- CloseLibrary(IntuitionBase);
- }
- else printf("Couldn't open intuition.library v37\n");
- return 0;
- }
-
-